﻿Public Class RepositoryOracle
    Implements IRepository

    Private _timeout As Integer
    Private _nombre As String
    Private _connectionstring As String

    Public Sub New(connectionstring As String)
        _connectionstring = connectionstring
    End Sub

    Public Sub Conectar() Implements IRepository.Conectar

    End Sub

    Public Sub Desconectar() Implements IRepository.Desconectar

    End Sub

    Public Sub BeginTransaction() Implements IRepository.BeginTransaction

    End Sub

    Public Sub AddParameter(name As String, value As Object) Implements IRepository.AddParameter

    End Sub
    Public Sub AddClient() Implements IRepository.AddClient

    End Sub
    Public Function ExecuteDataSet() As DataSet Implements IRepository.ExecuteDataSet
        Dim a As DataSet
        Return a
    End Function

    Public Function ExecuteDataTable() As DataTable Implements IRepository.ExecuteDataTable
        Dim a As DataTable
        Return a
    End Function

    Public Function ExecuteNonQuery() As Integer Implements IRepository.ExecuteNonQuery

    End Function

    Public Function ExecuteScalar() As Object Implements IRepository.ExecuteScalar
        Return New Object()
    End Function

    Public Function ExecuteReturnValue() As Object Implements IRepository.ExecuteReturnValue
        Return New Object()
    End Function

    Public Sub Commit() Implements IRepository.Commit

    End Sub

    Public Sub Rollback() Implements IRepository.Rollback

    End Sub

    Public Property Nombre As String Implements IRepository.Nombre
        Get
            Return _nombre
        End Get
        Set(value As String)
            _nombre = value
        End Set
    End Property

    Public Property Timeout As Integer Implements IRepository.Timeout
        Get
            Return _timeout
        End Get
        Set(value As Integer)
            _timeout = value
        End Set
    End Property

    Public Sub BackUp(path As String) Implements IRepository.BackUp

    End Sub
    Public Sub Restore(path As String) Implements IRepository.Restore

    End Sub

#Region "IDisposable Support"
    Private disposedValue As Boolean
    Public ReadOnly Property IsDisposed() As Boolean Implements IRepository.IsDisposed
        Get
            Return disposedValue
        End Get
    End Property
    ' IDisposable
    Protected Overridable Sub Dispose(disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
            End If
        End If
        Me.disposedValue = True
    End Sub

    Public Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region
End Class
